﻿Public Class Form1

    Private Sub btnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultar.Click
        Dim objetoExistencia As New ControlExistenciaProductos.Negocios.VerificarProducto
        MessageBox.Show(objetoExistencia.Existencia(Val(TextBox1.Text)))
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Close()
    End Sub
End Class
